home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 November / 64er_Magazin_92-11_1992_Markt__Technik_de_Side_B.d64 / xf-maker v1.0 (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  1KB  |  17 lines
  1. 1 poke53280,6:poke53281,6:print"[155][142][147]xf-maker v1.0":print"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  2. 2 print"(c) by markt & technik":print"written by mirko weinschenk"
  3. 3 input"anzahl der erweiterungen ";a$:az=val(a$):ifaz<2oraz>5thenprint"[145][145]":goto3
  4. 4 print"namen der erweiterungen:":fori=1toaz:print:print"[157]"i"[157].";:poke19,64:inputa$(i):next
  5. 5 print"":data160,185,89,96,153,119,4,136,208,247,32,228,255,240,251,201,179,240
  6. 6 print"[145]alles richtig (j/n) ?":poke198,0:wait 198,1:geta$:ifa$="n"then1:data25,201,49,144
  7. 7 ifa$<>"j"then6:data243,201,176,239,141,88,96,160,39,185,47,96,153,255,126,136
  8. 8 print"diskette einlegen und taste druecken ...":poke198,0:wait198,1
  9. 9 data208,247,76,0,127,76,63,36,169,1,162
  10. 10 open2,8,2,"xf,p,w":print#2,chr$(0)+chr$(96);:gosub15:print#2,chr$(az*40+40);:data8,160,0,32,186
  11. 11 fori=1to23:gosub15:next:print#2,chr$(az+49);:fori=1to89:gosub15:next:fori=1to15
  12. 12 print#2,chr$(14);:next:fori=1toaz:print#2,chr$(i+48)+chr$(46)+chr$(14);:forf=1tolen(a$(i))
  13. 13 a$=mid$(a$(i),f,1):ifa$=" "thena$=chr$(14):data255,162,0,189,87,96,240,3,232,208,248
  14. 14 print#2,a$;:next:forf=fto37:print#2,chr$(14);:next:next:close2:end:data138,162,87,160,96,32,189,255
  15. 15 reada:print#2,chr$(a);:return:data169,0,162,0,160,96,32,213,255,76,0,96,88,70,0,66,73,84
  16. 16 data84,69,14,69,82,87,69,73,84,69,82,85,78,71,14,87,91,72,76,69,78,58
  17.